Profile of (eval 207)[Sub/Quote.pm:3]

Filename	(eval 207)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 64 statements in 597µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
11	2	2	92µs	1.67ms	Method::Generate::Constructor::::newMethod::Generate::Constructor::new
1	1	1	29µs	87µs	Method::Generate::Constructor::BEGIN@5.68
1	1	1	13µs	13µs	Method::Generate::Constructor::BEGIN@10.69

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4					package Method::Generate::Constructor;
5	2	133µs	2	145µs	# spent 87µs (29+58) within Method::Generate::Constructor::BEGIN@5.68 which was called: # once (29µs+58µs) by Sub::Quote::_clean_eval at line 5 no warnings 'closure'; # spent 87µs making 1 call to Method::Generate::Constructor::BEGIN@5.68 # spent 58µs making 1 call to warnings::unimport
6					# spent 1.67ms (92µs+1.57) within Method::Generate::Constructor::new which was called 11 times, avg 151µs/call: # 10 times (82µs+1.57ms) by Moo::_constructor_maker_for at line 262 of Moo.pm, avg 166µs/call # once (10µs+0s) by Moo::_constructor_maker_for at line 177 of Sub/Defer.pm sub new {
7					($_QUOTED,$_UNQUOTED) if 0;
8					# BEGIN quote_sub PRELUDE
9					package Method::Generate::Constructor;
10					# spent 13µs within Method::Generate::Constructor::BEGIN@10.69 which was called: # once (13µs+0s) by Sub::Quote::_clean_eval at line 15 BEGIN {
11	1	2µs			$^H = 2018;
12	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
13	1	10µs			%^H = (
14					);
15	1	356µs	1	13µs	} # spent 13µs making 1 call to Method::Generate::Constructor::BEGIN@10.69
16					# END quote_sub PRELUDE
17	9	3µs			my $invoker = CORE::shift();
18	9	5µs			my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
19	9	3µs			if ($class ne "Method::Generate::Constructor") {
20					if ($Moo::MAKERS{$class}) {
21					if ($Moo::MAKERS{$class}{constructor}) {
22					package Method::Generate::Constructor;
23					return $invoker->SUPER::new(@_);
24					}
25					Moo->_constructor_maker_for($class);
26					return $invoker->new(@_);
27					} elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
28					return $meta->new_object(
29					$class->can("BUILDARGS") ? $class->BUILDARGS(@_)
30					: $class->Moo::Object::BUILDARGS(@_)
31					);
32					}
33					}
34					my $args = scalar @_ == 1
35					? CORE::ref $_[0] eq 'HASH'
36	9	17µs			? { %{ $_[0] } }
37					: Carp::croak("Single parameters to new() must be a HASH ref"
38					. " data => ". $_[0])
39					: @_ % 2
40					? Carp::croak("The new() method for $class expects a hash reference or a"
41					. " key/value list. You passed an odd number of arguments")
42					: {@_}
43					;
44	9	6µs			my $new = bless({}, $class);;
45					(exists $args->{"accessor_generator"} and ($new->{"accessor_generator"} = $args->{"accessor_generator"})),
46					(exists $args->{"attribute_specs"} and ($new->{"attribute_specs"} = $args->{"attribute_specs"})),
47					(exists $args->{"construction_builder"} and ($new->{"construction_builder"} = $args->{"construction_builder"})),
48					(exists $args->{"construction_string"} and ($new->{"construction_string"} = $args->{"construction_string"})),
49					(exists $args->{"package"} and ($new->{"package"} = $args->{"package"})),
50	9	43µs			(exists $args->{"subconstructor_handler"} and ($new->{"subconstructor_handler"} = $args->{"subconstructor_handler"})),
51					return $new;
52					}
53	1	1µs			$$_UNQUOTED = \&new;
54					}
55	1	16µs			1;
56
57					;